Gigarom 4/Mac Giga-ROM 4.0 - 1993.toast/FILES/HYP/H-I/HyperScrap.cpt/HyperScrap/stack.txt

Text File | 1989-01-09 | 7KB | 279 lines

-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x5000 (can't delete)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 2715
-- card count: 10
-- first card id: 2872
-- list block id: 2237
-- print block id: 3490
-- font table block id: 0
-- style table block id: 0
-- free block count: 14
-- free size: 26976 bytes
-- total size: 90112 bytes
-- stack block size: 6144 bytes
-- created by hypercard version: 0x01208000
-- compacted by hypercard version: 0x01208000
-- modified by hypercard version: 0x01208000
-- opened by hypercard version: 0x01208000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  set userLevel to 5
end openStack

on doMenu which
  if the optionKey is down then
    set userLevel to 5
    if which is "Help" then
      push card
      go to card "Quick Reference" of stack "HyperScrap"
      exit doMenu
    end if
    if which contains "Paste" then
      push card
      if which is not "Paste" then
        put character 1 of word 2 of which into whatLetter
      end if
      ask "Paste:  F)ield, B)utton, T)ext, P)icture" with whatLetter
      if it is empty then exit doMenu
      if it is "B" then
        go to card "Buttons" of stack "HyperScrap"
        show button "Paste"
        choose button tool
        click at the loc of card button "Paste"
        doMenu "Cut Button"
        doMenu "Paste Button"
        choose browse tool
        exit doMenu
      end if
      if it is "T" then
        go to card "Text" of stack "HyperScrap"
        show button "Paste"
        choose browse tool
        exit doMenu
      end if
      if it is "F" then
        go to card "Fields" of stack "HyperScrap"
        show button "Paste"
        choose browse tool
        exit doMenu
      end if
      if it is "P" then
        push card
        ask "Look up which graphic? (L for a list)" with "L"
        if it is empty then exit doMenu
        if it is "L" then
          set cursor to 4
          lock screen
          go to card "Graphics" of stack "HyperScrap"
          choose field tool
          click at the loc of card field "Lkqy"
          doMenu "Copy Field"
          put empty into graphicName
          repeat for the number of cards in background "Graphics"
            put graphicName & field 1 & "," into graphicName
            go to next card
          end repeat
          put empty into char 1 of graphicName
          pop card
          doMenu "Paste Field"
          unlock screen
          put "The names of the graphics are..."
          wait 1 second
          hide message
          repeat with x = 1 to the number of items in graphicName
            put item x of graphicName into line x of card field "Lkqy"
          end repeat
          choose browse tool
          exit doMenu
        end if
        put it into lookUpWhatGraphic
        pop card
        go to background "Graphics" of stack "HyperScrap"
        go to card lookUpWhatGraphic
        if the result is not empty then
          answer "That graphic was not found..." with "OK"
          pop card
          show button "Paste"
          exit doMenu
        end if
        choose browse tool
        if the short name of this card is lookUpWhatGraphic then exit doMenu
      end if
    end if
  end if
  pass doMenu
end doMenu

on idle
  if message is "†" then send "†" to this stack
  if message is "©" then send "©" to this stack
end idle

on mouseWithin
  if the optionKey is down and the commandKey is down then
    wait 1 second
    if the optionKey is down and the commandKey is down then
      set userLevel to 5
      set cursor to watch
      push card
      choose field tool
      click at the mouseLoc
      doMenu "Copy Field"
      lock screen
      go to card "Fields" of stack "HyperScrap"
      doMenu "Paste Field"
      pop card
      unlock screen
      choose browse tool
      exit mouseWithin
    end if
  end if
  if the commandKey is down then
    wait 1 second
    if the commandKey is down then
      set userLevel to 5
      set cursor to watch
      push card
      choose button tool
      click at the mouseLoc
      doMenu "Copy Button"
      lock screen
      go to card "Buttons" of stack "HyperScrap"
      doMenu "Paste Button"
      pop card
      unlock screen
      choose browse tool
      exit mouseWithin
    end if
  end if
end mouseWithin

on "©"
  set userLevel to 5
  set cursor to 4
  push card
  lock screen
  ask "What do you want to call this graphic?"
  if it is empty then
    pop card
    put empty into message
    hide message
    exit "©"
  end if
  if it is "L" then
    answer "You can't name your graphic 'L'" with "OK"
    send "©"
    exit "©"
  end if
  if the number of characters in it > 16 then
    answer "Please pick a name 16 letters or shorter." with "OK"
    send "©"
    exit "©"
  end if
  go to card "Graphics" of stack "HyperScrap"
  put it into graphicName
  doMenu "New Card"
  set the name of this card to graphicName
  put graphicName into field "Graphic Name"
  doMenu "Paste Picture"
  put empty into message
  hide message
  pop card
  unlock screen
end "©"

on "†"
  push card
  set userLevel to 5
  go to card "Text" of stack "HyperScrap"
  put the number of card fields into numCF
  repeat with x = 1 to the number of card fields
    if card field x is empty then
      put x - 1 into whatfield
      if whatField is 0 then
        send tabKey
        doMenu "Paste Text"
        pop card
        put empty into message
        hide message
        exit "†"
      end if
      click at the loc of card field whatField
      send tabKey
      doMenu "Paste Text"
      pop card
      put empty into message
      hide message
      exit "†"
    end if
  end repeat
  answer "There are no empty card fields..." with "OK"
  put empty into message
  hide message
  pop card
end "†"